home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
menuman.zip
/
RUNMENU.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-04-06
|
716b
|
30 lines
' An example of program chaining
CLS
LOCATE 2, 20: PRINT STRING$(40, 35)
FOR SIDE = 3 TO 21
LOCATE SIDE, 20: PRINT CHR$(35); SPACE$(38); CHR$(35)
NEXT
LOCATE 22, 20: PRINT STRING$(40, 35)
I = (62 - LEN(title$)) / 2
LOCATE 4, 22, 0: COLOR 15, 0: PRINT TAB(I); "PROGRAM CHAINING": COLOR 7, 0
DIM Menu$(3)
Menu$(1) = "≤ 1 ≥ RUN ADBOX.BAS"
Menu$(2) = "≤ 2 ≥ RUN SIGN.BAS"
Menu$(3) = "≤ 3 ≥ QUIT PROGRAM"
X = (56 - LEN(Menu$)) / 2
FOR SET = 1 TO 3
LOCATE SET + 8, 22: COLOR 15, 0: PRINT TAB(X); Menu$(SET): COLOR 7, 0
NEXT
DO: opt$ = INPUT$(1)
LOOP WHILE INSTR("123", opt$) = 0
SELECT CASE opt$
CASE "1": RUN "ADBOX"
CASE "2": RUN "SIGN"
CASE "3": GOTO Finish
END SELECT
Finish:
SYSTEM